﻿Imports System.Xml
Public Class UCLogin
    Function LoginUser() As Boolean
        Dim username As String = txtUserName.Text
        Dim password As String = txtPassword.Text
        Dim sql As String = String.Format("exec usp_DangNhap '{0}', '{1}'", username, password)
        Dim dt As DataTable = DataProvider.LoadTable(sql)

        If dt.Rows.Count = 0 Then
            MessageBox.Show("Tên tài khoản không tồn tại", "Thông báo", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
            If MsgBoxResult.Retry Then
                LoginUser()
            ElseIf MsgBoxResult.Cancel Then
                Return False
            End If
        End If
        ' Đến lúc này xem như đã đăng nhập thành công
        Return True
    End Function
    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        If LoginUser() Then
            MessageBox.Show("Đăng nhập thành công")
        End If
    End Sub
End Class
